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Filed on: <INGALLS>BITBLT.BRAVO 

This is a final description of the BIT BLT routines which grew out of discussions among; ^ 
Larry Tesler, Bob Sproull, Diana Merry and me. They are available as a BCPL driver with 
machine code inner loop and microcode which gets called if it is loaded. These routine^ 
assume that appropriate clipping or bounds checking has already been done on input. ^Ihey 
afeTvailabLTWTBLTB.Bcfp BITBLTA.ASM. bAbLT.MU in <INGALLS>BITBLT.DM. 

Definitions 

A bit map is a region of memory defined by bca and bmw, where bca is the base core 
address starting location) and bmv^r is the bit map width in words; the number of scan 
lines is irrelevant for our purposes. (If both bmw and bca are even, then the bit map 
may be displayed on the screen using standard Alto facilities.) 

A block is a rectangle within a bit map. It has four corners which need not fall on word 
boundaries. Any given block is described by a block descriptor whose contents are: 

Bit map's base core address (bca) 
Bit map's width in words (bmw) 
Block's Left x ("x offset") 
Block's Top y C'y offset") 
Block's Width 
Block's Height 

A block is sometimes used to designate a sequence of bits in memory, such as the 16 wide 
14 high region containing the bit pattern of a font character. In this case, bca point to 
the font character, bmw is 1, x and y are 0, width is 16, and height is 14. 



Block Operations 

From BCPL, one uses the call 

FillBitMap (destination, function, source, gray) //in Caravan, or 

FillBitMap (Iv destination, function, Iv source, gray) //in Alto OS. 

The destination is a pointer to a block descriptor. 

The; function is encoded as operation + source-type. The operation codes are: 



O 

r 4 

The source-types are: 



Replace: Destination <- Source 

Pamt: Destination «- Source ior Destination 

Invert: Destination <- Source xor Destination 

Erase: Destination <- not Source and Destination 



/> A block of a bit map f ^ 

\J 1 The complement of a bZocfeof a bit map CMi^£^'^. 

JC 2 A fciocfe as a brush with a gray \%f^^^ 

^ A 6ms/i emits gray where the brush is 1, and 

a copy of the destination (transparency) where 

the brush is 
/1/3 A gray ^-^^ : ! 

A gray is a one-word item specifying a 4-by-4 bit pattern to be used as a source. A solid 
constant source is specified with a gray whose four fields are equal. 

The source depends on the source type: 

G-3r^.y A pointer to a block descriptor 

2 3t A pointer to a block descriptor 

and a gray 

3 ( ^ A gray 

For source types 0-4, the source width and height, are ignored and a simple transfer between 
equally-sized rectangles is performed. 

The routine first considers the possibility of source-destination overlap and^c^^ 
which order to transfer words. It also generates masks and counts to be used in the 
rransfe? loops Then a lower level routfne is called which jumps into microcode if the 
RAM is loaded; otherwise it does the work m novacode. 

Timing Details 

The microcode has roughly the following speed characteristics: 

Horizontally, along one raster line (so to speak) - 

"Store constant i 15 cycles/word 

Move block (store) 36 cycles/woi^d 

Move block (OR) 42 cycles/wor4 ,,, 

Vertical loop overhead (time to change raster lines) 

25-30 cycles, depending on source/dest alignment 

Initial setup overhead (time to get going or resume from interrupt) 
approx 150 cycles 

These are all in terms of Alto minor cycles and do include all memory wait time and do 
not TncTude any de due to conTpeting tasks, such as the display or disk. 

Interim Details 

The machine code is not presently reentrant, and consequently will crash if you try to u.se 
it in seoarate processes. We do not intend to alter this situation since when the 
mic?ocoSe fs u^ed thi'ngs behave reentrants, and there is no problem. It is not hard to 
do, though, if someone has a good reason for it. 

The microcode is not presently interruptable, ;and consequently large oH^^^^tions will cause 
si^niHcant delays in interrupt service (like 1/4 second to move most of the screen). This 
wfll be relieved shortly by allowing the microcode to save its state m the AGs and 
emerge to the nova emulator, later to resume where it lett ott. 

We will probably provide an efficient entry for CONVRT-like operations; your suggestiions; 
in that direction are hereby solicited. 



;//FILE MAINTENANCE 
;//April 20, 1976 



— Ibb scan.sr \ 



;//Notes and Code — BitBIt and Scan Conversion — D. MERRY 
;//The formal format for the table associated with BitBIt looks as follows: 



;//0 
;// 


FUNCTION 


;//l 


"GRAY" 


;//2 


DESTINATION CORE BASE 


;//3 
:// 


DESTINATION RASTER 


;//4 


DESTINATION X 


;//5 


DESTINATION Y 


;//6 


WIDTH 


;//7 


HEIGHT 


;//10 


SOURCE CORE BASE 


:;//ii 


SOURCE RASTER 


;//12 


SOURCE X 


■;//13 


SOURCE Y 


;//14 
;// 
■ ;// 


SCRATCH GRAY 


;//15 


SCRATCH GRAY V 


://16 


SCRATCH GRAY C 


;//17 


SCRATCH GRAY 



First address must be on even 
word boundary 

One-word constant defined by user 



Width in "Nova" words of 
destination rectangle 



In bits 
In bits 



Four locations for building gray 

words for 

microcode 



://The format of the "strike". font is the simple case of Cypress Glyphs as described 

;//in the FONT FORMAT memo of January 29. 1976. <MERRY>SI RIKEFORMAT.BRAVO 

If high order bit on, it's a "strike" 
format font, otherwise it's in .AL 
format. For the simple case only the 
high order bit can be on in the strike 
format. 

Width of the widest character 



Ascent + Descent = Scgheight 
(Fontheight) 

Negative for kerned font, 
normally. 

Smallest legal Ascii in this font. 
Characters less than Min not used 
for some sort of control by the user 
will be displayed as illegal character 

Largest legal Ascii in this font. 
Max + 1 will probably be the "Shazam' 
character whicli will be displayed 
whenever a character greater than 
Max is requested. 

Must be 1 in the simple case 

Total width of font in bits. 
This value + 15 and divided by 16 
yields the raster value for BitBlit. 
(simple case) 



//o 

// 

// 

// 

// 


FORMAT 


//I 


MAXIMUM WIDTI 


//2 


ASCENT 


//3 
// 


DESCENT 


//4 
// 


XOFFSET 


,//5 

7/ 

// 


MIN 


;//6 
,// 

;// 
;// 
;// 


MAX 


://7 


NSEGS 


;//10 

;// 

;// 

;// 


SEGMENT WIDTH 



;//ll 


PINCH TOP 


;//12 


PINCH BOTTOM 


://13 

;// 

;// 

;// 

;// 


CHARPOINTERS 


:// 


SEGMENT 


;//The follow 
;//the "strike 


ing is code for scan conversion 
' font format. The table passed 


;//0 

;// 

;// 


FUNCTION 




"GRAY" 


://2 
:// 


DESTINATION CORE BASE 


;//3 


DESTINATION RASTER 


;//4 

;// 

;// 


DESTINATION X 


;//5 

:// 

;// 


DESTINATION Y 


;//6 


WIDTH 


;//7 


HEIGHT 


//lO 
// 


SOURCE CORE BASE 


//ll 


SOURCE RASTER 


;//12 


SOURCE X 


//1 3 


SOURCE Y 


//14 
// 


SCRATCH GRAY 


//15 


SCRATCH GRAY 


//16 


SCRATCH GRAY 


//17 


SCRATCH GRAY 


//20 


SAVE ACl 


//21 


SAVE AC2 


//22 


SAVE AC3 


//23 
// 


BITBLT FONT 


//24 
// 


CHARACTER 


//25 

// 

// 

// 

// 


CHANGE 


// 

// 
// 
// 
// 





in simple case. 

in simple case. 

MIN thru MAX+2, indexed by Ascii. 
Value is left x of selected glyph. 
MAX + 1 is the "illegal" character 
and MAX + 2 the right x of 
"illegal" character. 

((Segwidth + 15)/16) * segheight 



using BitBIt and 
I look like this: 

May vary with each character — set 
by user. This location must be on 
even word boundary. 

Only relevant if "painting" 
characters, i.e. Function > 7. 

First word address of memory used 
for Alto display 

Width of Display in "Nova" words 

Must be set by user for every 
"new line", updated by routine on 
each character. 

Set by user -- will typically 
have "fonlhcight" added to it for 
a new line 



Computed - 
Fontheight 



Ascii + I's X - Ascii's x. 



Pointer to the bits of the font -- 
created by some setup routine 

(Segmentpointer + 15) / 16 

Value in location Charpointers + Ascii 



Place for Scratch Grays in case 
painting font. 



Place to save AC's. 



Place to keep pointer to font whilst putting 
out a string of characters. 

Place to hold character code, to 
facilitate exception checking. 

Zero means there has been no change 
in the font, the function, or the "gray" 
since the last time a string was scan 
converted. > means to set up BBSTABLE 
according lo information provided in 
SCANTABLE passed in ACl. 

Pointer to subroutine which when called 
will return width of character passed in 
ACO — expects pointer to BBSTABLE 
in AC2 



// 
// 
// 


HEIGHT SUBRO 


//26 

// 

// 


SCAN SUBR0U7 


/ni 
// 


SAVE GRAY 
(TEMPI) 


//30 

// 


GRAY COUNT 
(TEMP2) 


//31 

// 

// 

// 

// 


TRAfL CHARS 
CROSSLEFT 


// 


CROSSRIGHT 


// 


RIGHTMARGIN 


// 
// 
// 


MEASURE 


// 


TEMP3 


// 
// 


LASTVISIBLE 



Pointer to subroutine which when called 

will return height of font — 

expects pointer to BBSTABLE in AC2 

Pointer to subroutine which will make call 
on BitBIt -- depends on the kind of font 
being used. 

Only necessary if going to 
have "gray" cnaracters 

Ditto 



Needed only for justification in Smalltalk. 
Signals whether there have been non-space 
characters since the last space -- helps to 
deal with multiple spaces. 
Used in Smalltalk for window clipping 

Ditto 

Ditto 

Smalltalk switch — so that PUTCHARS code 
can be used both for measuring and scan 
converting 

Needed only if .AL fonts expected 



For returning last visible character 
when clipping occurs 



//The format of the SCANTABLE passed in ACl whenever there is a call for 
//putting a siring of characters is or setting up the BBSTABI.E in preparation 
//for a call for displaying a string of characters is as follows: 



//o 


FUNCTION 


//I 


GRAY 


f/l 


FONT 


//3 


DESTINATION X 


//4 


DESTINATION Y 


//5 


STRING TABLE 


// 




// 




// 





OR. STORE, etc. 

Meaningful only if FUNCTION >7. 

Pointer to first word of font. 

Beginning X of first character of STRING. 

"Top" Y of first character of STRING. 

Pointer to table with following format: 

STRING POINTER 

BEGINNING CHARACTER (BYTE) 

LAST CHARACTER 



//The following code will probably eventually check to see if the font has 
//been set up and call setup code if necessary. In any event it assumes 
//the following contain appropriate values: 



//FUNCTION 

//"GRAY" 

//DESTINATION CORE BASE 

//DESTINATION RASTER 

//DESTINATION X 

// 

// 

//DESTINATION Y 

//HEIGHT 

//SOURCE CORE BASE 

//SOURCE RASTER 

//SOURCE Y 

// 

//The Ascii value is received in ACO and 



Usually "or" or "store" 
Usually not relevant 

Usually upper left hand corner display word ad 
"Display width" 

Set by user for first character in line — 
updated by this routine for subsequent characters 
in line 

Set by user line by line 
Fontheight -- set once per font 
First word ad of font bits -- set once per font 
Width of font bits in words -- set once per font 
Always in the simple case 

a pointer to the BitBIt table in ACL 



.TITL STRIKESCAN 

.GETNOLIST "SMALL.OPS" 
.GETNOLIST "SMALL.SYMS" 
.GETNOLIST "SMDISP.SYMS" 



;//.BEXTZ 
;//.BEXT 



.SREL 

SETSCAN: 

PUTCIfAF^S: 

DISPAD: 

DISPWD: 



.SMF "DECLARED IN SMALL.SYMS 

SETSCAN, PUTCHARS. DISPAD, DfSPWD.DOJST 

;//--DECLARED IN SMDISP.SYMS 



SETSCANC 
PUTCHARSC 



EXCEPT: EXCEPTC 

CLIP: CLIPC 

STR I K ESC A N: STR I K ESCA NC 
ALSCAN: ALSCANC 

DOJST: DOJSTC 



.NREL 

C7: 
CI3: 

.DSP AD: 
.DSPWD: 

BITBLT 



7 

13 

DISPAD 

DISPWD 



;//LOCAL SRELS 



60400 



;//OFFSETS DEFINED IN SMDISP.SYMS 

//FUNC = 

//GRAY = 1 

//DBASE = 2 

//DRASr = 3 

//DESTX = 4 

//DHSTY = 5 

//WIDTH = 6 

//HEIGHT = 7 

//SBASE = 10 

//SRAST = 11 

//SRCX = 12 

//SRCY = 13 

//GRAYl = 14 

//GRAY2 = 15 

//GRAY3 = 16 

//GRAY4 = 17 

//SAVl = 20 

//SAV2 = 21 

//SAV3 = 22 

//BBFONT = 23 

//CHAR = 24 

//CHANGE = 25 

//WIDTHSUBR = 26 

//HEIGHTSUBR = 27 

//SCANSUBR = 30 

//SAVGRAY = 31 

//GRAYCNT = 32 

//TEMPI 

//TEMP2 

// 

//TRLCIIR = 33 

//CROSSLEFT 

//CROSSRIGHT 

//RIGHTMARGIN 

//MEASURE = 37 

// 

// 

//TEMP3 

// 

//LASTVISIBLE 

// 

// 

//;//FUNC = 

//;//GRAY = 1 

//FONT 

//DX 

//DY 

//STRINGTAB 

// 

//FORMAT = 

//MAXWIDTH 

//ASCENT = 2 

//DESCENT = 3 

//XOFFSET = 4 

//MIN 



;//OFFSErS INTO BBSTABLE 



31 

32 



;//SHARED WITH 'GRAY' LOCATIONS -- 
;//USL,D MOSTLY FOR SAVING RETURNS 
;//IN SMALLTALK UTILITY SUBROUTINES 

;//USED WITH SMALLTALK JUSTICATION 

34 ;//FOR SMALLTALK WINDOW CLIPPING 

35 

36 

;//SMALLTALK SWITCH - SO PUTCHARS 

//CAN BE USED BOTH FOR MEASURING 

//AND SCANNING 

//NEEDED ONLY IF .AL FONTS 

//MIGHT BE USED 

//LASTVISIBLE CHARACTER FOR CLIPPING 



;//OFFSETS INTO SCANTABLE 



;//OFFSETS INTO FONT 
1 



SETRTN: 



SETAL: 



LDA 0,@.STRIKESCAN 

STA 0,SCANSUBR,2 

MOV 2,3 
LDA 2.SAV2,2 



JMP @1.2 



NOCMANGE: 



://PASS BACK PTR TO SCAN CONVERTING SUBR IN 
;//BBSTABLE 

//RESTORE AC2 — AC3 CONTAINS 

//PTR TO BBSTABLE 

//WHICH CALLER WILL WANT TO SQUIRREL AWAY 



;//MAKE BBFONT POINT AT FIRST TABLE ENTRY 



INC 3.3 
INC 3,3 

STA 3,BBFONT.2 
MKONE 0,0 
STA 0,SRAST,2 
MKZERO 0,0 
STA 0,SRCX,2 
LDA 0,@.GETWDAL 
STA 0,WID'rilSUBR,2 
LDA 0,@.GETHTAL 
STA 0,HEIGliTSUBR.2 
LDA 0.@.ALSCAN 
JMP SETR1 N ;//PASS BACK PTR TO SCAN CONVERTING SUBR IN 

;//BBSrABLE 



;//SET UP WIDTH GETTING ROUTINE 
;//SET UP HEIGHT GETFING ROUTINE 



PUTCHARSC: 



"STA 3.L2 
MOV 0,3 
LDA 0,CHANGE,3 
SGZ 0,0 

JMP NOCHANGE 
LDA 0.1,2 
STA 0,SAV3,3 

MOV 3,0 

JSR SETSCANC 

LDA 0,SAV3,3 

STA 0,1.2 

STA 2,SAV2.3 

MOV 3,2 
MOV 1,3 
LDA 1,DX,3 

STA 1,DESTX,2 
LDA 1,DY,3 
STA 1,DESTY,2 
MKZERO 1,1 

STA 1,WIDTH,2 
LDA l,SrRlNGrAB,3 
LDA 0,SCANSUBR,2 



STn lyfmtw.'i^ 



;//CHECK IF FONT, FUNCTION, OR GRAY CHANGED 
;//SINCE LAST USE OF THIS TABLE 

//IF CHANGE SAVE RETURN PTR FOR PUTCHAR 

//IN BBSTABLE AND CALL 

//SmSCAN WITH PTR 

//TO BBSIABLE IN ACO - PTR IN SCANTABLE 

//STILL IN ACl 

//RESTORE RETURN PTR -- 

//BOMBED BY SETSCAN 



//SAVE PTR TO AC2 IN BBSTABLE — 

//FOR BCPL 

//BBSTABLE: IN AC2 

//SCANTABLE IN AC3 

//SIT UP DESTINATION X OF FIRST 

//CHAR IN STRING 

;//AND TOP Y 

;//WIDTII GOES INTO SCAN 
;//CONVERSION AS ZERO 

;//PTR TO STRING TABLE IN ACl FOR SMF 
;//SCAN CONVERSION SUBR CALLED BY SMF 



//SMF (SUBSTRECTOR-MAP-FETCH) IS AN ENTRY IN A STRING PACKAGE WRITTEN BY 

//LARRY TESLER -- 

//GOING IN: 

// ACO 

// 

// ACl 

// 

// 

// 

// AC2 



PTR TO SUBROUTINE (MAP FUNCTION) TO BE CALLED 

WITH EACH CHARACrER 
PTR TO STRING TABLE: 

STRING POINTER 
FIRST CHARACTER (BYTE PTR) 
LAST CHARACTERT(BYTE PTR) 
TRANSPARENT 

//THE 1 FOLLOWING THE JSR MEANS WE'RE LOOKING AT A STRING AND 
//PROCEEDING FROM FIRST TO LAST 

//A -1 WOULD MEAN TO PROCEED FROM LAST TO FIRST 
// 

// EACH TIME SMF CALLS THE DESIGNATED SUBROUTINE WITH AN 

// ASCII VALUE IN ACO AND THE CURRENT CHARACTER (BYTE PTR) 

// IN ACl 

// 

//A NOSKIP RETURN MEANS THAT THE STRING HAS BEEN EXHAUSTED -- EITHER 
//LAST CHARACTER REACHED OR BEYOND LENGTH OF STRING. A SKIP RETURN 
//IS CAUSED BY A SKIP RETURN FROM THE USER'S SUBROUTINE. 1 ASSUME THERE 
//IS A SIMILAR PACKAGE FOR PUMPING STRINGS IN BCPL 



JSR @.SMF 

1 

SKIP 



//NOSKP - SUBSTRG EXHAUSTED 

//FOR MEASURING 

//ACO = CHAR CODE 
//ACl = BYTE PTR 



;//SKP FtTN FROM STRIKESCAN MEANS STOP PICKING 
://WHHN SUBSTRING EXHAUSTED AGO <- Nil, 
;//AND NSPC GETS NIL TO TURN OFF JUSTIFICATION 



RETURN: 



JMP RETURN 

EDA 3,.DSPGLBS 

NIL 0.0 

STA 0,NSPC,3 

LDA 1,SAV1.2 ;//AND ACl GETS BYTE PTR + 1 -- WHEN SUBSTRG 

INC 1,1 ;//SMF DOES NOT RETURN BYTE PI R 

LDA 2,SAV2.2 
JMP ©1.2 



STRIKESCANC: 

STA 3,SAV3,2 ;//BBSTABLE 
LDA 3,BBFONT.2 
STA 0,CHAR,2 
STA 1.SAV1.2 

LDA 1,MIN.3 

SGE 0,1 

JSR EXCEPTC 

LDA 1,MAX,3 

SLE 0,1 

INC 1,0 

STA 0,CIIAR,2 



FN AC2 

//CHECK FOR 'LEGAL' ASCII 
//EXPEDIENT — MAY NOT BE NEEDED 
//DrnO — BUT REQUIRED IN SMALLTALK 
//CURRENT BYTE PTR FROM SMI- HERE 



;//MAX + 1 IS 'ILLEGAL' CHARACTER 



//EXCEPTION CODE, F:.G. FOR CR.SPACE.ETC. 
//COULD BE PUT HERE -- FOR SMALLTALK 
//EXCEPTION CHARACTERS WILL BE KNOWN BY 
//THEIR ZERO WIDTH 



LDA 1.MIN.3 ;//SUB MIN F 
SUB 1,0 

LDA 3,WIDTn,2 

LDA 1,DESTX,2 

ADD 1,3 

STA 3,DESTX,2 

LDA 3,BBFONT,2 

ADD 0,3 

LDA l.CHARPTRS,3 

STA 1,SRCX,2 

LDA 0,CHARPTRS+L3 

SUB 1,0 

STA 0,WIDTII,2 

SNZ 0,0 

JSR EXCEPTC 

JSR CLIPC 

JMP NOSCAN 



ROM CHAR CODE -- SO INDEXING 
;//CORRECT 

;//UPDATE DESTX— WIDTH FIRST TIME— SET IN 
;//PUTCHARS 



;//SET UP SOURCE X 

;//SET UP WIDTH 
;//NEXTX - THISX 



NOSCAN: 



MOV 2,0 
ZER 1,1 

bublt 

MOV 0.2 
JMP @SAV3.2 



y/BBSTABLE SENT IN ACO FOR NOW******* 
;//AND ACl IS FLAG********* 

;//PUT TABLE BACK IN 2 CAUSE SMF BOMBS 3 



CLIPC: 



SPCli^ 



MOV 3.1 

STA 1. TEMP 1,2 
LDA 0,CIIAR,2 
LDA 1, SPACE 
SNE 0,1 
JMP SPCTT 
ISZ TRLCHR,2 

NOP 

LDA l,WIDril,2 

LDA 0,DESTX,2 

LDA 3,CROSSLEFT.2 

SET 0.3 

JMP CHKRTl 

ADD 0,1 

MOV 1,0 

SGT 1,3 

JMP RTN 

SUB 3,1 

LDA 3.WIDTH,2 
STA 1,WIDTH,2 
SUB 1,3 



;//SUBR FOR WINDOW CLIPPING 

;//SAVE RETURN — BBSTABLE COMES IN AC2 



//INDICATE NON-SPACE CHAR — HELP DEAL 
//WITH MULTIPLE SPACES IN JUSTIFICATION 
//SOMETIMES USED AS NIL FLAG — ARGIIII!! 

;//CHECK DESTX VISIBLE 

//CROSSLEFT SET UP BEFORE PUTCHARS CALLED 

//IF DESTX GE CROSSLEFF THEN CHECK 

//CROSSRIGHT 

//OTHERWISE ADD IN WIDTH 

//GET IN BOTH ACO AND ACl 

//IF STILL NOT CROSSLEFL 

//THEN NOSKIP RTN AVOIDS BH BET CALL 

//IF SPANNING CROSSLEFT PRUNE SRCX 

//TO GET PARTIAL CHARACTER 

;//DIFF BETWEEN CROSSLEFT AND RIGHTX IS WIDTH 
://WIDTH - DIFF TO BE ADDED TO SRCX AND DESTX 



CHKRTl: 



CHKRT2: 



PRUNE: 



CUKCHAR: 



CHKEDGE: 



SKPRTN: 



RTN: 



LDA 1,SRCX,2 
ADD 3.1 
STA ],SRCX,2 
LDA l.DESTX,2 
ADD 3.1 
STA 1,DESTX,2 
JMP CHKRT2 

LDA 3.CROSSRIGHT,2 
SLE 0.3 
JMP RTN 
ADD 1,0 



LDA 3,RIGIITMARGIN,2 

LDA l,CROSSRFGHT,2 

SNNIL 1,1 

JMP CHKEDGE 

SLT 1,3 

JMP CHKEDGE 

SGT 0.1 

JMP CHKCHAR 

NIL 3,3 

STA 3,CROSSRIGHT.2 



LDA 3.SAV1,2 ;//PRUNED 

STA 3.LASTVISIBLE,2 

SUB 1,0 

LDA l,WIDrH,2 

SUB 0.1 

STA l.WfDTH,2 

LDA 0,CHAR.2 
LDA LSPACE 
LDA 3,TAB 
SEQ 0,1 
SNE 0.3 
JMP RTN 
JMP SKPRTN 

MOV 3,1 

LDA 3,CROSSRIGMT,2 

SNNIL 3,3 

JMP RTN 

SGT 0.1 

JMP CHKCHAR 

NIL 3,3 

STA 3,TRLCHR.2 

JMP PRUNE 



LDA l.MEASURE,2 
SZE 1.1 
JMP MRTN 
LDA 3.TEMP1.2 
JMP 1,3 



LDA 1,MEASURE,2 
SZE 1.1 
JMP MRTN 
JMP @TEMP1,2 



;//AND DESTX 

;//AND CHECK RIGHT BOUNDARIES 

;//-CHECK HERE IS INITIAL DESTX 01 F RIGHT 

;//N0SKIP RTN AVOIDS BITBLT CALL 
;//ADD IN WIDTH FOR NEXT CHECK 



;//NOW CHECK FOR SPANNING CROSSRIGHT 

;//IF CROSSRIGHT NIL— WE'VE ALREADY CROSSED IT 

;//SO CHECK RIGHTMARGIN -- SO MEASURING WORKS 

;//IF CROSSRIGHT LESS THAN RIGHTMARGIN 

;//IF EQUAL CHECK SPANNING OF RIGHTMARGIN 

;//IF WITHIN CROSSRIGHT SCAN IN 

;//OTHERWlSE SET CROSSRIGHT TO NIL AND 
;//PRUNE 

CHARACTER WILL BE LAST VISIBLE 
//MAINLY FOR SMALLTALK PURPOSES 
//IF SPANNING CROSSRIGHT OR RIGHT MARGIN 
//PRUNING WIDTH WILL GET PARTIAL CHAR 



;//SKPRTN WILL CALL BITBLT 

;//IF ALREADY CROSSED RIGHT DONT SCAN 

;//IF SPANNING RIGHT MARGIN THEN PRUNE 

;//NIL TRAIL CHAR COUNT AS FLAG FOR STOPPING 
;//AT MEASURING TIME 
;//AND GO PRUNE 

;//AC0 PRESERVED HERE FOR MSE FINDING ROUTINES 

.//*♦♦♦♦♦*♦**♦***** 

•//FIRST SEE IF WE'RE MEASURING -- DIFFERENT RTN 
;//SKPRTN MEAN SCAN IT IN 



//ACO PRESERVED HERE FOR MSE FINDING ROUTINES 
//FIRST SEE IF WE'RE MEASURING - DIFFERENT RTN 



;//NOSKP MEANS NO SCAN 
;//EXCEPTION CODE — HANDLES CR, TAB. AND SPACE 



EXCEPTC: 



MOV 3.1 

STA 1.TEMP1.2 

LDA 3,.DSPGLBS 

LDA 0,CIIAR.2 

LDA l.SPACE 

SNE 0.1 

JMP DOSPACE 

LDA l.TAB 

SNE 0.1 

JMP DOTAB 

LDA 1,CR 

SNE 0,1 

JMP DOCR 

ZER 0.0 



;//BBSTABLE COMES IN AC2 
;//FOR SMALLTALK 



10 



DOSPACE: 



DOJSTC: 



LASTJST: 
JUSTIT: 



STA O.WFDTH,2 
LDA 0,C257 

LDA 3,SCANSUBR,2 
JMP 1,3 



LDA 0,MEASURE,2 

SZE 0,0 

JMP MSPACE 

LDA 0,TUISL1NE,3 

SGZ 0,0 

JMP NOJST 

DSZ CNT1,3 

JMP JUSTIT 

LDA l.CNT2,3 

SGZ l.l 

JMP LASTJST ;//IF SO ONE 

STA LCNT1,3 

ISZ LEAD.3 

ISZ NWID,3 

MKZERO 0,0 

STA 0,CNT2,3 

JMP JUSTIT 

STA l,TmSLlNE,3 



LDA 0,LEAD,3 
LDA 1, DELTA. 3 
ADD 0,1 
STA LDELTA,3 
L[)A 0,NWID,3 
UPDATEWIDTH: 

STA 0,WIDrH,2 
LDA ].DESTX,2 
ADD 0,1 
STA l,SPCX,3 



;//RECALL SCAN SUBR 
;//Wn II ILLEGAL CHAR 

;//+! TO KEEP SCANSUBR'S RETURN CORRECT 



;//SEE IF IN MEASURE MODE 



://IF ACTUALLY SCAN CONVERTING THEN 
;//SEE IF JUSIFYING 

;//ENTRY USED BY SMALLTALK FNDMS ROUTINE 
;//IF SO. SEE IF WE'VE 
;//COUNTED DOWN COUNTERS 



;//CNT2 ALREADY ZERO OR COUNTED DOWN? 
MORE TIME AND STOP 

;//UPDATE LEAD SO TABS WORK RIGHT 
;//NWlb+l NEW JUST SPACE 

://ZERO CNT2 



;//SHUT OFF JUSTIFICATION FOR NEXT TIME 
;//AND UPDATEX 

;//BUMP TAB DELTA -- LEAD SET IN LNOUT.SR 



NOJST: 



CR: 

I'AB: 

SPACE: 

.TABWD: 
DOTAB: 



DOCR: 



MSPACE: 



MULSPC: 



MRTN: 



JMP RTN 

LDA 0,FSPACE,3 
JMP UPDATEWIDTH 

15 
11 

40 

TABWD 

JSRII .TABWD 

JMP UPDAIEWIDTH 



;//SAVE PROPER RIGHTX 

;//FOR JUSTIFICATION 



://IN DSPUTILS.SR 

;// RETURNS TAB WIDTH IN ACO 



STA O.JSrCR,3 ;//SAVE FOR CHECKING IN JUSTIFICATION 

LDA 1,SAV1,2;//GET CURRENT BYTE PTR INTO ACl 

LDA 3,SAV3,2 

JMP 1,3 ;//POP OUT OF SMF IN PUTCHARS 



LDA O.TRLCHR,2 

SGZ 0,0 

JMP MULSPC 

ZER 0,0 

STA 0,TRLCHR.2 

STA 0,NSPC2,3 

LDA 1,SAV1,2 
STA l,LSrSP,3 
ISZ NSPC,3 
ISZ NSPC2,3 
JMP NOJST 



LDA 0.TRLCHR.2 
SNIL 0,0 
JMP @TEMPl,2 
LDA 3,.DSPGLBS 
LDA 0,CHAR,2 
LDA l,LSrSP,3 
SNNIL 1,1 
JMP NOSPC 



;//SPACE EXCEPTION CODE WHEN MEASURING 
;//FIX MULTIPLE SPACES IF NECESSARY 



;//SAVE PTR TO THIS SPACE 
;//BUMP SPACE COUNTERS 

://IF NOT GO GET MORE CHARS 



;//NIL TRLCHR TELLS US PAST RIGHTMARGIN 

;//IF NOT GET MORE CHARS 
;//GET LAST CHAR INTO ACO FOR PSTRG 
;//NIL LSTSP MEANS NO SPACES IN LINE 
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MOUT: 
NOSPC: 



LDA l.SPCX,3 

STA 1,DESTX,2 
LDA 1,LSTSP.3 
INC 1.1 



LDA 3.SAV3.2 
JMP 1,3 

LDA l.SAVl,2 

JMP MOUT 



;//MAKE LAST DEXTX 
;//CORRECT FOR JUSTIFICATION 

•//SEND BYTE PTR BACK IN ACl AND CHAR CODE IN 
;//ACO -- EXPECTED IN PSTRG.SR 

;//SKPRTN OUT OF SMF IN PUTCHARS 



//NO SPACES IN LINE MEANS 
//SAVl HAS CORRECT 
//BYTE PTR FOR PSTRG.SR 



LBYTEMSK: 177400 

RBYTEMSK: 377 

C20: 

C257: 

.CLIP: CLIP 



20 
401 



ALSCANC: 



EXTENTION: 



EXCEPTION: 



NOSCANAL: 



STA 3.SAV3,2 

STA 1,SAV1,2 ;//SAVE SMF 

STA 0,CHAR,2 

LDA 1,WIDTH,2 

LDA 3,DESrX,2 

ADD 1,3 

STA 3,DESTX,2 

LDA 3.BBFONT,2 

ADD 0.3 

LDA 0,0,3 

ADD 0.3 

LDA 0,0,3 

STA 0,TEMP2,2 

LDA 1.C20 

MOVZR 0.0 SNC 

MOV 1,0 

STA 0,WIDTII,2 

LDA 0,1,3 

LDA 1, LBYTEMSK 

ANDS 0,1 

LDA 0.DESTY.2 

STA 0,TEMP3.2 

ADD 1,0 

STA O.DESTY,2 

LDA 0.1,3 

LDA 1, RBYTEMSK 

AND 0.1 

STA 1,IIEIGHT.2 

SUB 1.3 

STA 3.SBASF:,2 

LDA 0,CHAR,2 

LDA I.SPACE 

SNE 0.1 

JMP EXCEPTION 

LDA l.TAB 

SNE 0.1 

JMP EXCEPTION 

LDA l.CR 

SNE 0.1 

JSRII .EXCEPT 
JSRII .CLIP 
JMP NOSCANAL 
MOV 2.0 
ZER 1.1 
BITBLT 
MOV 0.2 



;//BBSTABLE COMES IN AC2 
S BYTE PTR 

;//SAVE CHAR CODE FOR EXCEPTION CHECKING 



.//UPDATE X 

;//NOW GET FONT INTO AC2 



;//GET WIDTH WORD 
//SAVE WIDTH WORD -- IN CASE OF EXTIiNTION 



;//SAVE DESTY FOR HIGHER ROUTINES 

//GET HEIGHT/DISPLACEMENT WORD BACK 

//MASK OFF HEIGHT 

//A DDR OF WIDTH - HEIGHT SHOULD BE SBASE 



;//FIX DESTY 

- LEFTSIDE CLIPPING MAY ALTER 



.EXCEPT: 



LDA 0,TEMP3.2 

STA 0,DESTY.2 

MKZERO 0.0 ;//FIX SRCX 

STA O.SRCX,2 

LDA 0.TEMP2.2 

MOVZR 0,0 SNC 

JMP EXTF'NTION 

JMP @SAV3.2 ;//AND GO FOR ANOTHER CHARACTER 

EXCEPT 



.END 



